/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Advanced_Math_Samples / v_dot

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 02 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 12 31 30 20 20 20 20 | 43 4c 45 41 52 20 53 43 |..10    |CLEAR SC|
|00000110| 52 45 45 4e 00 2f 32 30 | 20 20 20 20 4c 4f 41 44 |REEN./20|    LOAD|
|00000120| 53 55 42 20 41 4c 4c 20 | 46 52 4f 4d 20 22 2e 2e |SUB ALL |FROM "..|
|00000130| 5c 6d 61 74 68 6c 69 62 | 5c 4d 61 74 68 6c 69 62 |\mathlib|\Mathlib|
|00000140| 2e 68 74 73 22 00 00 16 | 33 30 20 20 20 20 44 41 |.hts"...|30    DA|
|00000150| 54 41 20 31 2c 32 2c 33 | 2c 34 2c 35 2c 36 00 0d |TA 1,2,3|,4,5,6..|
|00000160| 34 30 20 20 20 20 52 45 | 53 54 4f 52 45 00 00 22 |40    RE|STORE.."|
|00000170| 35 30 20 56 65 63 74 6f | 72 3a 20 20 49 4d 41 47 |50 Vecto|r:  IMAG|
|00000180| 45 20 22 5b 22 2c 44 44 | 2c 44 44 2c 44 44 2c 22 |E "[",DD|,DD,DD,"|
|00000190| 5d 22 00 27 36 30 20 52 | 6f 77 5f 76 65 63 74 6f |]".'60 R|ow_vecto|
|000001a0| 72 3a 20 20 49 4d 41 47 | 45 20 22 5b 22 2c 44 44 |r:  IMAG|E "[",DD|
|000001b0| 2c 44 44 2c 44 44 2c 22 | 20 5d 22 00 00 13 37 30 |,DD,DD,"| ]"...70|
|000001c0| 20 20 20 20 4f 50 54 49 | 4f 4e 20 42 41 53 45 20 |    OPTI|ON BASE |
|000001d0| 31 00 00 14 38 30 20 20 | 20 20 52 45 41 4c 20 41 |1...80  |  REAL A|
|000001e0| 28 33 29 2c 42 28 33 29 | 00 12 39 30 20 20 20 20 |(3),B(3)|..90    |
|000001f0| 43 4c 45 41 52 20 53 43 | 52 45 45 4e 00 14 31 30 |CLEAR SC|REEN..10|
|00000200| 30 20 20 20 52 45 41 44 | 20 41 28 2a 29 2c 42 28 |0   READ| A(*),B(|
|00000210| 2a 29 00 1a 31 31 30 20 | 20 20 50 52 49 4e 54 20 |*)..110 |  PRINT |
|00000220| 22 56 65 63 74 6f 72 20 | 61 20 3d 20 22 3b 00 21 |"Vector |a = ";.!|
|00000230| 31 32 30 20 20 20 50 52 | 49 4e 54 20 55 53 49 4e |120   PR|INT USIN|
|00000240| 47 20 52 6f 77 5f 76 65 | 63 74 6f 72 3b 41 28 2a |G Row_ve|ctor;A(*|
|00000250| 29 00 00 1a 31 33 30 20 | 20 20 50 52 49 4e 54 20 |)...130 |  PRINT |
|00000260| 22 56 65 63 74 6f 72 20 | 62 20 3d 20 22 3b 00 1d |"Vector |b = ";..|
|00000270| 31 34 30 20 20 20 50 52 | 49 4e 54 20 55 53 49 4e |140   PR|INT USIN|
|00000280| 47 20 56 65 63 74 6f 72 | 3b 42 28 2a 29 00 00 34 |G Vector|;B(*)..4|
|00000290| 31 35 30 20 20 20 50 52 | 49 4e 54 20 22 54 68 65 |150   PR|INT "The|
|000002a0| 20 44 4f 54 20 70 72 6f | 64 75 63 74 20 69 73 20 | DOT pro|duct is |
|000002b0| 22 3b 46 4e 56 5f 64 6f | 74 28 41 28 2a 29 2c 42 |";FNV_do|t(A(*),B|
|000002c0| 28 2a 29 29 00 18 31 36 | 30 20 20 20 44 45 4c 53 |(*))..16|0   DELS|
|000002d0| 55 42 20 46 4e 41 69 20 | 54 4f 20 45 4e 44 00 09 |UB FNAi |TO END..|
|000002e0| 31 37 30 20 20 20 45 4e | 44 00 ff ff             |170   EN|D...    |
+--------+-------------------------+-------------------------+--------+--------+